BEGIN MACRO chaoticPendulum
-- sonar sample-01 / chaotic pendulum
-- created: 08/09/2017 L&G_Software
-- all variables in [cm g us]-system


-- L pendulum
CREATE ELEMENT (E1, QUAD_STRIP, 6)
DATA (-10, -13.5, 0, -7, -13.5, 0)
DATA (-10, 1.5, 0, -7, -1.5, 0)
DATA (10, 1.5, 0, 10, -1.5, 0)
CREATE OBJECT (O1, PRISM_QUAD_STRIP, E1, EXTRUSION, 1.0)

-- small pendulum
CREATE OBJECT (O2, CUBOID, 7, -13.5, 0.6, 10, 1.5, 1.6)
CREATE FIXPOINT (F1, 0, 0, -2)
CREATE FIXPOINT (F2, 0, 0, 2)

-- bearing, joint
CREATE LINK (K1, NORMAL, O1, F1)
CREATE LINK (K2, NORMAL, O1, F2)
CREATE LINK (K3, NORMAL, O1, O2, 8.5, 0, -0.5)
CREATE LINK (K4, NORMAL, O1, O2, 8.5, 0, 1.6)

-- properties
SET PROPERTY (O1, DENSITY, 7.8) -- 7.8 g/cm3 = steel
SET PROPERTY (O1, COLOR_RGB, 224, 224, 224) -- lighter grey
SET PROPERTY (O1, ANGULAR_VELOCITY, Z, 40E-6) -- 40 rad/s = 40E-6 rad/microsec.

SET PROPERTY (O2, DENSITY, 7.8)
SET PROPERTY (O2, COLOR_RGB, 192, 192, 192) -- darker grey
SET PROPERTY (O2, ANGULAR_VELOCITY, Z, -40E-6)

SET PROPERTY (K1, C_DAMPING, 20.0)
SET PROPERTY (K2, C_DAMPING, 20.0)
SET PROPERTY (K3, C_DAMPING, 20.0)
SET PROPERTY (K4, C_DAMPING, 20.0)

-- global values
CREATE FIELD(Gravitation, 0.0, -1.0, 0.0, 9.81E-10) -- 9.81 m/s2
SET VALUE (TIMESTEP_MAX = 5.0) -- 5 microsecond

-- end of script
